Aminet 1

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume91 / utilitys / backdrop / part01 next >

Wrap

Internet Message Format | 1991-04-16 | 60.6 KB

Path: news.larc.nasa.gov!amiga-request From: amiga-request@ab20.larc.nasa.gov (Amiga Sources/Binaries Moderator) Subject: v91i086: BackDrop 1.2 - force Workbench 1.3 to run in a normal window, Part01/02 Reply-To: "John Davis, chem dept, Uni of Canty, NZ" <CHEM194@cantva.canterbury.ac.nz> Newsgroups: comp.sources.amiga Message-ID: <comp.sources.amiga:v91i086@ab20.larc.nasa.gov> Date: 16 Apr 91 19:12:44 GMT Approved: tadguy@uunet.UU.NET (Tad Guy) X-Mail-Submissions-To: amiga@uunet.uu.net X-Post-Discussions-To: comp.sys.amiga.misc Submitted-by: "John Davis, chem dept, Uni of Canty, NZ" <CHEM194@cantva.canterbury.ac.nz> Posting-number: Volume 91, Issue 086 Archive-name: utilities/backdrop-1.2/part01 [ includes uuencoded executables ...tad ] BackDrop12 and Wb102 This pair of programs allow you to force Workbench 1.3 to run in a normal window (as opposed to the backdrop window it usually uses), and then put up a patterned backdrop window behind it (and all other windows), similar to the 'desktop pattern' on the Mac and Windows/3. Having patterned backdrops (as opposed to the blank screen normally used) not only looks nicer, but it can make it easier to deal with lots of windows (gives them something to contrast against). wb102 is a minimal hack in assembler to force workbench into a window - source for Hisoft DevPac v2 assembler is included. backdrop12 allows you to setup a backdrop pattern window, features are - user specifiable fill pattern and colour - ability to change patterns on the fly - support for NTSC/PAL/overscan etc modula-2 source (for TDI 3.01) is included. #!/bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 1 (of 2)." # Contents: backdrop.doc backdrop.mod backdrop.uu block.pattern # hatch.pattern startup-sequence.example wb102.doc wb102.s wb102.uu # wmove.uu # Wrapped by tadguy@ab20 on Tue Apr 16 15:12:42 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'backdrop.doc' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'backdrop.doc'\" else echo shar: Extracting \"'backdrop.doc'\" $2817 characters$ sed "s/^X//" >'backdrop.doc' <<'END_OF_FILE' XBackDrop v1.2 X------------- XBy J Davis 91/04/14 X X XWhat's it do? X------------- X XHave you ever wished you could have patterned backdrops behind all the Xwindows on workbench (like the Mac or Windows3)? Well this program is the Xanswer, it lets you create a backdrop window with colours and a fill Xpattern of your own chosing. X XWhat do you need? X----------------- X XTo be able to actually see our backdrop it's necessary to get workbench to Xload into a normal (sizable, draggable) window. Under KS1.3, workbench Xusually opens as a Backdrop, borderless window, which would obscure our Xbackdrop. X XTo get around this you use WB (a separate utility by myself, included in Xthis archive). You may also wish to use the provided WMove and WSize Xutilities in conjunction in your startup-sequence to automatically shrink Xdown the workbench window (see included example startup-sequence) X XUsage X----- Xsyntax: X backdrop [fg bg] [patternfile] X XIf you run backdrop with no parameters, it will install the backdrop Xwindow using colours 0 and 2, and the default 'checkerboard' pattern X XYou may optionally supply either the two colours to use ( these colours Xare in the range 0 to 3 ) X X e.g. backdrop 1 3 X Xor the name of a file containing a custom fill pattern X X e.g. backdrop s:hatch.pattern X Xor you may combine both options X X e.g. backdrop 1 0 s:block.pattern X Xtyping 'backdrop ?' will give you a brief summary of the command syntax. X XThe format of the pattern file is 16 words, represented in binary with one Xword per line X X e.g. 1111111111111111 X 0000000010000000 X 0000000010000000 X 0000000010000000 X 1111111111111111 X 1000000000000000 X 1000000000000000 X 1000000000000000 X 1111111111111111 X 0000000010000000 X 0000000010000000 X 0000000010000000 X 1111111111111111 X 1000000000000000 X 1000000000000000 X 1000000000000000 X(see included example pattern files) X XOnce you have installed backdrop, you may modify the options on the fly by Xre-running backdrop (this won't open a new backdrop window, just update Xthe existing one). X XImplementation Details X---------------------- X Xthis program simply opens it's own backdrop/borderless window on workbench Xto hold the backdrop pattern. Memory usage is about 21k for a Xnon-interlaced PAL screen, and 42k for an interlaced display (due to a Xsmartrefresh window being used to minimise processor overhead and refresh Xtimes). X XScreen size is detected on the fly, so it should work with over-scan etc. X XIf you have any problems with the program , I can be contacted at the Xfollowing addresses : X Xinternet : chem194@canterbury.ac.nz X Xbbs email : AmigaINFO BBS, Christchurch NZ X (+64) (03) 3371-531 X END_OF_FILE if test 2817 -ne `wc -c <'backdrop.doc'`; then echo shar: \"'backdrop.doc'\" unpacked with wrong size! fi # end of 'backdrop.doc' fi if test -f 'backdrop.mod' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'backdrop.mod'\" else echo shar: Extracting \"'backdrop.mod'\" $11615 characters$ sed "s/^X//" >'backdrop.mod' <<'END_OF_FILE' XMODULE backdrop; X X(* X X simple program to put up a patterned backdrop window on workbench, X for use with wb1.02 (wb1.02 needed to get wb1.3 into own window) X X v1.0 - initial version , hard-coded for PAL screen size, quick and dirty X v1.1 - now picks up screen size on the fly (works with overscan,NTSC etc) X can change colours on the fly (finds old window and refreshes) X v1.2 - user definable fill patterns added X X*) X XIMPORT IntuitionBase; XIMPORT Intuition; XFROM Memory IMPORT MemReqSet,MemPublic,AllocMem; XFROM Windows IMPORT OpenWindow; XFROM Libraries IMPORT OpenLibrary,CloseLibrary; XFROM SYSTEM IMPORT NULL,WORD,ADDRESS,ADR,BYTE; XFROM InOut IMPORT WriteString,WriteLn,WriteCard,OpenInputFile,Done,CloseInput,ReadString; XFROM GraphicsLibrary IMPORT GraphicsBase,GraphicsName,DrawingModeSet,DrawingModes; XFROM Pens IMPORT RectFill,SetAPen,SetBPen,SetDrMd; XFROM PenUtils IMPORT SetAfPat,SetDrPt; XFROM CommandLine IMPORT CLStrings,GetCL; XFROM Conversions IMPORT ConvertFromString; XFROM Strings IMPORT Compare,CompareResults; X XCONST X Xscreenname = "Workbench Screen"; Xwindowname = "BackDrop"; X X(* turn this on for verbose debugging info *) Xdebug = FALSE; X XTYPE X Xstring = ARRAY [0..80] OF CHAR; Xstrptr = POINTER TO string; X XVAR X Xnw : Intuition.NewWindow; Xwd : Intuition.WindowPtr; Xpat : ARRAY [0..15] OF WORD; X Xscreenptr : Intuition.ScreenPtr; X Xfound : BOOLEAN; X Xwidth : CARDINAL; Xheight : CARDINAL; X Xargc : CARDINAL; Xargv : ARRAY [0..2] OF CLStrings; X Xpatname : CLStrings; Xusepattern : BOOLEAN; X Xibaseptr : POINTER TO IntuitionBase.IntuitionBase; X Xfgcol,bgcol : CARDINAL; Xt : LONGCARD; Xdone : BOOLEAN; X Xtitleptr : strptr; X X(* -------------------------- usage ----------------------- *) X XPROCEDURE usage; XBEGIN XWriteString("Backdrop v1.2 by J Davis 04/91"); XWriteLn; XWriteString("Usage is : backdrop [fg bg] [pat]"); XWriteLn; XWriteString(" fg and bg specify the colours to use for the pattern"); XWriteLn; XWriteString(" if omitted 0 and 2 are used"); XWriteLn; XWriteLn; XWriteString(" pat is the name of the file containing the backdrop pattern"); XWriteLn; XWriteString(" if omitted a single pixel checkerboard is used"); XWriteLn; XWriteLn; XEND usage; X X(* ------------------------- strcmp ---------------------- *) X XPROCEDURE strcmp(sp1 : strptr; s2 : ARRAY OF CHAR):BOOLEAN; XBEGIN XIF debug THEN X WriteString("checking : "); X WriteString(sp1^); X WriteString(" against : "); X WriteString(s2); X WriteString(" "); XEND; X IF Compare(sp1^,s2)=Equal THEN X IF debug THEN X WriteString("equal"); X WriteLn; X END; X RETURN TRUE; X ELSE X IF debug THEN X WriteString("not equal"); X WriteLn; X END; X RETURN FALSE; X END; XEND strcmp; X X(* ------------------------- getpattern --------------------- *) X XPROCEDURE getpattern(name : CLStrings ; window : Intuition.WindowPtr ; VAR pattern : ARRAY OF WORD): BOOLEAN; X(* read in a pattern definition from file 'name' X and set it as the windows fill pattern X if everything is ok returns TRUE X X expects the file to hold 16 lines of binary words, defining the fill pattern X e.g. 1111111111111111 X 1000000010000000 X 1000000010000000 X 1111111111111111 etc X X NB : pattern must still be accessible when fill is called as SetAfPat X only sets a _pointer_ to the pattern in rastport.areaptrn X X*) XVAR X index : CARDINAL; X s : string; X ok : BOOLEAN; X convok : BOOLEAN; X temp : LONGCARD; XBEGIN X ok:=TRUE; X IF debug THEN X WriteString("trying to open pattern file : "); X WriteString(name); X WriteLn; X END; X OpenInputFile(name); X IF Done THEN X (* file opened ok - read in lines of data *) X IF debug THEN X WriteString("file opened ok"); X WriteLn; X END; X index:=0; X REPEAT X ReadString(s); X IF Done THEN X (* read a line ok - convert from binary *) X IF debug THEN X WriteString("read string : "); X WriteString(s); X WriteLn; X END; X ConvertFromString(s,2,FALSE,65535,temp,convok); X IF convok THEN X (* converted ok, put it in our pattern table *) X IF debug THEN X WriteString("string converted to number : "); X WriteCard(SHORT(temp),8); X WriteLn; X END; X pattern[index]:=WORD(SHORT(temp)); X index:=index+1; X ELSE X (* didn't convert *) X ok:=FALSE; X IF debug THEN X WriteString("conversion failed"); X WriteLn; X END; X END; X ELSE X (* couldn't read string - end of file? *) X IF debug THEN X WriteString("counldn't read string - end of file?"); X WriteLn; X END; X ok:=FALSE; X END; X UNTIL (index=16) OR (NOT ok); X CloseInput; X ELSE X (* couldn't open named file *) X WriteString("couldn't open pattern file : "); X WriteString(name); X WriteLn; X ok:=FALSE; X END; X XIF ok THEN X (* everything went ok - set fill pattern *) X IF debug THEN X WriteString("everything went ok - setting fillpattern"); X WriteLn; X WriteString("pattern = "); X WriteLn; X FOR index:=0 TO 15 DO X WriteString(" "); X WriteCard(CARDINAL(pattern[index]),8); X WriteLn; X END; X END; X SetAfPat(wd^.RPort,pattern,4); X RETURN TRUE; XELSE X IF debug THEN X WriteString("not ok - getpattern exiting"); X WriteLn; X END; X RETURN FALSE; XEND; X XEND getpattern; X X(* ------------------------- main -------------------------- *) X XBEGIN X Xusepattern:=FALSE; X XIF NOT GetCL(argc,argv) THEN X (* more than 3 args *) X usage; X HALT; XEND; X XIF (argc=1) AND (argv[0][0]='?') THEN X usage; X HALT; XEND; X XIF (argc=0) OR (argc=1) THEN X (* use default colours *) X IF debug THEN X WriteString("no colour specified - using default colours"); X WriteLn; X END; X fgcol := 2; X bgcol := 0; XEND; X XIF (argc=2) OR (argc=3) THEN X (* user supplied colour choices - get them *) X IF debug THEN X WriteString("converting colour choices"); X WriteLn; X END; X X ConvertFromString(argv[0],10,FALSE,3,t,done); X IF NOT done THEN X usage; X HALT; X ELSE X fgcol:=SHORT(t); X END; X X ConvertFromString(argv[1],10,FALSE,3,t,done); X IF NOT done THEN X usage; X HALT; X ELSE X bgcol:=SHORT(t); X END; XEND; X XIF argc=1 THEN X (* user specified ONLY pattern name - get it *) X patname:=argv[0]; X usepattern:=TRUE; XEND; X XIF argc=3 THEN X (* user specified colours AND pattern name - get pattern name *) X patname:=argv[2]; X usepattern:=TRUE; XEND; X XIntuition.IntuitionBase:=OpenLibrary(Intuition.IntuitionName,0); XGraphicsBase:=OpenLibrary(GraphicsName,0); X Xibaseptr:=Intuition.IntuitionBase; Xscreenptr:=ibaseptr^.FirstScreen; Xfound:=FALSE; Xwidth:=640; (* default width *) Xheight:=256; (* default height *) X XIF debug THEN X WriteString("searching screens for workbench screen"); X WriteLn; XEND; X XREPEAT X (* scan for workbench screen and copy it's width and height *) X IF strcmp(screenptr^.Title,screenname) THEN X (* this is the workbench screen *) X width:=screenptr^.Width; X height:=screenptr^.Height; X found:=TRUE; X IF debug THEN X WriteString("found workbench screen. title : "); X titleptr:=screenptr^.Title; X WriteString(titleptr^); X WriteLn; X WriteString(" width : "); X WriteCard(width,5); X WriteString(" height : "); X WriteCard(height,5); X WriteLn; X END; X ELSE X screenptr:=screenptr^.NextScreen; X END; XUNTIL found OR (screenptr=NULL); X XIF found THEN X (* located workbench screen ok, now scan window list to see if we're X already installed X *) X IF debug THEN X WriteString("located WorkBench Screen ok"); X WriteLn; X END; X X IF debug THEN X WriteString("searching windows for existing BackDrop window"); X WriteLn; X END; X X wd:=screenptr^.FirstWindow; X found:=FALSE; X REPEAT X (* scan window list for existing window with correct title *) X IF strcmp(wd^.Title,windowname) THEN X (* found existing window, so update it instead of opening a new one *) X found:=TRUE; X WriteString("modifying existing backdrop window"); X WriteLn; X ELSE X wd:=wd^.NextWindow; X END; X UNTIL found OR (wd=NULL); X X IF NOT found THEN X (* need to open a new window *) X X WriteString("creating new backdrop window"); X WriteLn; X X titleptr:=AllocMem(10,MemReqSet{MemPublic}); X titleptr^:=windowname; X X WITH nw DO (* setup definition for our backdrop window *) X LeftEdge := 0; X TopEdge := 0; X Width := width; X Height := height; X DetailPen := BYTE(1); X BlockPen := BYTE(1); X IDCMPFlags := Intuition.IDCMPFlagSet{}; X Flags := Intuition.SmartRefresh + Intuition.WindowFlagSet{Intuition.BackDrop,Intuition.Borderless,Intuition.NoCareRefresh}; X FirstGadget := NULL; X CheckMark := NULL; X Title := titleptr; X Screen := NULL; X BitMap := NULL; X MinWidth := width; X MinHeight := height; X MaxWidth := width; X MaxHeight := height; X Type := Intuition.ScreenFlagSet{Intuition.WBenchScreen}; X END; X X wd:=OpenWindow(nw); (* open the window *) X END; X X IF wd=NULL THEN X (* window wouldn't open - probably painted shut *) X WriteString("error opening window"); X WriteLn; X ELSE X IF NOT usepattern THEN X (* no pattern specified - use default 'stipple' pattern *) X WriteString("using default fill pattern"); X WriteLn; X pat[0] := WORD(05555H); (* setup fill pattern *) X pat[1] := WORD(0AAAAH); X SetAfPat(wd^.RPort,pat,1); X ELSE X (* user specified custom pattern *) X WriteString("using custom pattern from file : "); X WriteString(patname); X WriteLn; X IF NOT getpattern(patname,wd,pat) THEN X IF debug THEN X WriteString("getpattern failed"); X WriteLn; X END; X WriteString("error in pattern definition file (or pattern file doesn't exist)"); X WriteLn; X WriteString("will use default pattern instead"); X WriteLn; X pat[0] := WORD(05555H); (* setup fill pattern *) X pat[1] := WORD(0AAAAH); X SetAfPat(wd^.RPort,pat,1); X ELSE X IF debug THEN X WriteString("getpattern ok"); X WriteLn; X END; X END; X END; X SetAPen(wd^.RPort,fgcol); X SetBPen(wd^.RPort,bgcol); (* select the 2 colours to fill with *) X IF debug THEN X WriteString("filling backdrop window"); X WriteLn; X END; X RectFill(wd^.RPort,0,0,wd^.Width,wd^.Height); (* fill our window *) X END; XELSE X IF debug THEN X WriteString("can't find workbench's screen!"); X WriteLn; X END; XEND; X XCloseLibrary(Intuition.IntuitionBase); XCloseLibrary(GraphicsBase); X XIF debug THEN X WriteString("backdrop done"); X WriteLn; XEND; X XEND backdrop. END_OF_FILE if test 11615 -ne `wc -c <'backdrop.mod'`; then echo shar: \"'backdrop.mod'\" unpacked with wrong size! fi # end of 'backdrop.mod' fi if test -f 'backdrop.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'backdrop.uu'\" else echo shar: Extracting \"'backdrop.uu'\" $14231 characters$ sed "s/^X//" >'backdrop.uu' <<'END_OF_FILE' Xbegin 666 backdrop XM```#\P`````````#``````````(```@O````W`````````/I```(+T[Y```80 XMU"(`<`9.1TYU3E;_Z"H`>`G:A#U%__XJ#E"%+47_Z$#N__@M3?_T+5;_\$YHW XM+4C_[`QN``?__F<(#&X`"/_^9A0M;@`2__HJ+O_H4(4M1?_H3OH`0@QN``__K XM_F8,3F@M:``(__I.^@`N#&X`$/_^9@Q"KO_Z0J[_\$[Z`!H,;@`)__YE"DYHZ XM+5#_^D[Z``@M;@`*__I)^0```!@XKO_^0BP``BEN__H`!#EN__@`""EN__0`5 XM"BEN__``#BEN_^P`$BEN__``%AE\``$`&BYN_^@@.0```!0O0``"/KP``"Q6; XM3FA9B$Y@3G-.7DYU2?D```!4*@PB17``+'@`!$ZN_=@J`"Q%.CD````8!D4!# XM]4C%(@5.KO]P($]!Z/^`D<"Q[0`$8@9R`W`&3D=.=4J?+T[__$YN+2\``CT78 XM+2___$CF__PB42".+$E,WC__+U[__#Z>+UX``DYF+&___$YS2I\O3O_\3FXM& XM+P`"/1<M+__\2.;__")1((Y'^@`J+0L]/$ZY/3PG`#T\1OPDCBQ)3-X__R]>` XM__P^GB]>``).9BQO__Q.<R].__Q.;BTO``8]+P`$+2___$CF__P@7R)H`"0B& XMCBQ(3-X__R]>__P^GB]>``).9BQO__Q.<T;\)P`N'PP'`"=F!DZY```",@P'2 XM`"9F!DZY```!,@P'`"5F!DZY```!9`P'``IF"'#X3KD````.#`<`"V8(</=.E XMN0````XP!T1`4D!.N0````Y*GU4`9@@"5_C_@U=.<U,`9@0^@4YS4P!F!D;\^ XM(`!.<U,`9@1.<4YS4P!F"B`!3KD````.3G-.5@``2.=\`"(N``@D+@`,)@$HL XM`2H"2$1(1<+"Q,3&Q<C%2$'20D*%V8720]F%2$%"0D)#2$)(0]2#U(0M00`,O XM+4(`"$S?`#Y.7DYU3E8``$CG>``B+@`,)"X`"+2\``#__V(>0D."PF@..`%"X XM04A!@L(V`3($@L)(0S8!0D%(06`>0H,V`4A#0D%(03@\``_CB^.1LH)E!)*"T XM4D-1S/_R+4,`#"U!``A,WP`>3EY.=4Y6``!(Y_\`3.X`\``(2$0V!$A&O4-;` XMYS0$,#Q_\,1`9P`!#C8&QD!G``$&UD($0S_P8P``_&L``/YP#\A`",0`!,Q`= XM",8`!'0`/P,P!,#&2$`R!,+'-@1(1L;&T(,V!$A'QL=(0=)#0D-(0]$0V* XM!,;&TD-(04)#2$/1@S8$2$;&QM"#-@3&Q]*#T8(V!$A'R,="1$A$TH31@C8%V XMQL;2@]&"-@5(1L;&0D-(0]*#T8)(138%QL;2@]&"2$;,Q4A!TD9(04)&2$;1M XMADA'RL="14A%TH71@E"!T8(V'W@$>AD+`&<&4D0&0P`0%`#HND("Z*CHJ8*"R XM6P4+`&8,U(+3@=&`!$,`"F,D2D-K*$A``D``#X!#2$!*'V<$=A\'P$CN``,`= XM$$S?`/].7DYU5$]P`'(`8.IP!4ZY````!DY6``!(Y_\`3.X`\``(2$0R!`)!# XM?_!G``".2$8P!@)`?_!G``!PD$$&0#_P:P``>#(&N4%;YP)&``\(Q@`$`D0`\ XM#PC$``1(1DA$<AYV`&$B)`-R%W8`819R">.KU8)K3@1``!!K```LUH/5@F!`S XMWH?=AKR$7,G_^`/#GH6=A%O)_^YJ#-Z%W80#@TI!7<G_X$YU5(]T`'8`2.X`5 XM#``03-\`_TY>3G5P!4ZY````!GP`!H,```@`U89D"N*2XI,&0``0:^)R`#("_ XM?@ONJNZK[KE"`8:!2$("0@`/A$!(0DH?9[9P'P'"8+!.5@``2.?@`'``(BX`Q XM"&=(-#Q!X$A!,`%F"DA!,`%R``1"`0!"00Q``/]B#.&(X9F``4(!!$(`@$I`8 XM:PH$0@`0TH'10&KVZXCKF8`!0@%(0`)```^`0DA`2.X``P`(3-\`!TY>3G5.= XM=4Y6``!(Y^``("X`"..8)``"@`#___\"@O\```!F$G``<@!([@`#``A,WP`'L XM3EY.=>:*XHCBD@:".````"(`YHCFF0*!<````(""8-9.<4YQ3G$J`"/%````& XM!"H((\4`````*@\CQ0````P@+P`$*@`CQ0````@J.0````R:N0````A0A2/%_ XM````4$GY```&OD?Y````5'H+%MQ7S?_\(_P```#R````%"QX``0B?`````!.Y XMKO[:*@`CQ0```!`C^0```!````!,*CP```'@*'D```!,*44`,BQX``1P!TZN/ XM_JIP!4ZN_JIP!DZN_JI"IT*G0J<B>0```%`O"4*G*D^>_``DG<YA"BYY````6 XM#'``3G5.^0``!M!D;W,N;&EB<F%R>0!.^0``!?)"N0```&).^0``!N).^0``6 XM!LI"N0```&9.^0``!U1.5@``+PXB;@`(+'@`!$ZN_F(L7TY>3G5.5@``+PXH3 XM;@`,*@PB12`N``@L>``$3J[]V"Q?*@`M10`23EY.=4Y6```O#B`N``PB+@`(A XM+'@`!$ZN_SHL7RH`+44`$$Y>3G5.^0``!MQ.5@``0KD```!R3EY.^0``!Y!.5 XM5@``+PXH;@`(*@P@12QY````<DZN_S0L7RH`+44`#$Y>3G5.^0``!TY"N0``+ XM`'9.^0``"@I.5O_P#&X``@`690P,;@`D`!9B!'H!8`)Z`"AN``@8A2AN``A*[ XM%&<"8`1.^@'(>@`Z+@`6+RX`$"\%3KD```*T+I\J'SU%__9Z`#HN`!8O+@`0Z XM+P5.N0```K18CRU?__!";O_\*&X`#$*40F[_^CHN__JZ;@`<8A0Z+O_Z*&X`Q XM&$HT4`!G!E)N__I@XD(N__]*+@`49RHH;@`8#!0`*V8*/7P``?_\3OH`&"ANM XM`!@,%``M9@P]?``!__P=?``!__\Z+O_ZNF[__%+%1`4H;@`(&(4Z+O_\NF[_- XM^F0**&X`"$H49P)@!$[Z`/@Z+O_\*&X`&!@T4``,!`!A90H,!`!Z8@0"!`!?3 XM'43_]0PN`##_]64:#"X`.?_U8A)Z`!HN__4$10`P/47_^$[Z`"X,+@!!__5E_ XM'@PN`%K_]6(6>@`:+O_U!$4`009%``H]1?_X3OH`""AN``A"%"AN``A*%&<.A XM.B[_^+IN`!9D!'H!8`)Z`"AN``@8A2AN``A*%&=>*&X`#"H4NJ[_\&46*&X`@ XM#"H4NJ[_\&8..B[_^+IN__9B!'H!8`)Z`"AN``@8A2AN``A*%&<H>@`Z+@`6, XM*&X`#"\4+P5.N0```FA8CWH`.B[_^-J?*&X`#"B%4F[__&``_O1*+O__9PXHR XM;@`,*A1$A2AN``PHA4Y>3G5.5O_^68\O/#NCUPI.N0``!:9)^0```/@HWRC?L XM/7P``__^.B[__E-%YT5)^0```.@O-%`$+S10`"\Y```!A"\Y```!@$ZY```$7 XM5E"/.B[__N=%2?D```#H2?10`"C?*-]2;O_^#&X`$?_^9K9.7DYU3OD```>*S XM3E8``%F/>@`O!4ZY```%/DGY```!<"C?*-]9CWH!+P5.N0``!3Y)^0```7@H) XMWRC?68]Z"B\%3KD```4^2?D```&`*-\HWV$`_T)9CWH*+P5.N0``!3Y)^0``O XM`+`HWRC?68]Z9"\%3KD```4^2?D```"X*-\HWUF/*CP``"<0+P5.N0``!3Y)6 XM^0```,`HWRC?+SD```#$+SD```#`+SD```#$+SD```#`3KD```,84(])^0``R XM`,@HWRC?+SD```#,+SD```#(+SD```#,+SD```#(3KD```,84(])^0```-`H9 XMWRC?+SD```#4+SD```#0+SD```#4+SD```#03KD```,84(])^0```-@HWRC?W XM+SD```#<+SD```#8+SD```#<+SD```#83KD```,84(])^0```.`HWRC?+SD`A XM``#D+SD```#@+SD```#D+SD```#@3KD```,84(])^0```.@HWRC?+SD```#L- XM+SD```#H+SD```#L+SD```#H3KD```,84(])^0```/`HWRC?(_Q!(```````U XM>B/\.Z/7"@```)(C_$+(``````!^(_PZ`Q)O````EB/\1AQ``````((C_#A1O XMMQ<```":(_Q,OKP@````AB/\-J?%K````)XC_%H.&\H```"*(_PU!C>]````" XMHB/\=)W%K@```(XC_#-6OY4```"F0KD```"J3EY.^0``#Z).5@``+PXB+@`(W XM+'D```!V3J[_W"Q?3EY.=4Y6```O#BQY````=DZN_\HL7RH`+44`"$Y>3G5.9 XM5@``+PXL>0```'9.KO]\+%\J`"U%``A.7DYU3E8``"\.(BX`""QY````=DZN3 XM_R@L7RH`2H56Q40%'44`#$Y>3G5.5@``+PXH;@`,*@PB!20N``@L>0```'9./ XMKO_B+%\J`"U%`!).7DYU3E8``"\.+'D```!V3J[_Q"Q?*@`M10`(3EY.=4Y6T XM```O#B(N`!`D+@`,)BX`""QY````=DZN_]8L7RH`+44`%$Y>3G5.5@``+PXBP XM+@`0)"X`#"8N``@L>0```'9.KO^^+%\J`"U%`!1.7DYU3E8``"\.(BX`$"0N) XM``PF+@`(+'D```!V3J[_T"Q?*@`M10`43EY.=4Y6__PH;@`,2JX`"&8*.7S_= XM_P`&3OH`=BBN``@O#%6/+RX`"$ZY```,;EB/&A\H7TH%9PA"+``$3OH`3B\,. XM68\O+@`(0J=Z`2\%3KD```T`3^\`#"H?*%\M1?_\+PQ9CR\N``A"IWK_+P5.L XMN0``#0!/[P`,*A\H7RE%``A*K``(5\5$!1E%``1";``&3EY.=4Y6```H;@`(` XM0I0H;@`(0FP`!DY>3G5.5O_\*&X`"DJ48U0O#%F/+Q1'[@`(*@LO!7H!+P5.T XMN0``#2A/[P`,*A\H7RU%__QZ`;JN__QG'"\,68].N0``#%(J'RA?.44`!AE\' XM``$`!$[Z``I";``&0BP`!$[Z``@Y?/__``9.7DYU3E;_^BAN``Y*E&,"8`1.K XM^@"`0F[_^CHN__JZ;@`,8A0Z+O_Z)FX`"$HS4`!G!E)N__I@XB\,68\O%"9N: XM``@J"R\%>@`Z+O_Z+P5.N0``#2A/[P`,*A\H7RU%__QZ`#HN__JZKO_\9QPOS XM#%F/3KD```Q2*A\H7SE%``89?``!``1.^@`*0FP`!D(L``1.^@`(.7S__P`&( XM3EY.=4Y6__PH;@`,2I1C`F`$3OH`B"\,68\O%"9N``@J"R\%>@$O!4ZY```,4 XMV$_O``PJ'RA?+47__'H!NJ[__&<N)FX`"$(3&7P``0`$+PQ9CTZY```,4BH?N XM*%\Y10`&2FP`!F8&.7S__P`&3OH`*D)L``8O#%F/+Q1"IT*G3KD```T`3^\`< XM#"H?*%^ZK``(5,5$!1E%``1.^@`(.7S__P`&3EY.=4[Y```*!$Y6``!*N0``" XM`'9F'EF//SP`"DAY```/U$*G3KD```<&3^\`"B/?````=DY>3OD``!#B9&]SS XM+FQI8G)A<GD`3E8``$(Y```!B$Y>3G5.5O_\0F[__CHN__XH;@`.'710`/_]L XM.B[__BAN``@==%``__P:+O_]NB[__&8"8`1.^@"8&B[__;HY```!B&8*'7P`[ XM`0`43EY.=5)N__XZ+O_^NFX`$F,Z.B[__KIN``QB%#HN__XH;@`( `+@Y< XM```!B&8.'7P``0`43EY.=4[Z``P=?``"`!1.7DYU3OH`-CHN__ZZ;@`,8RHZJ XM+O_^*&X`#A@T4`"X.0```8AF#AU\``$`%$Y>3G5.^@`*0BX`%$Y>3G5.^@`BE XM&B[__;HN__QC#$(N`!1.7DYU3OH`#!U\``(`%$Y>3G5@`/\<3OD```^<3E8`, XM`&$`_OA.7D[Y```3\$Y6``!(>0```8Y9CS\N``PH;@`(2%1(>`/M3KD```R4S XM3^\`"DZY```-4%"/2GD```&45\5$!1/%```!BDY>3G5.5O_\2KD```&.8T0M? XM>0```8[__$AY```!CDZY```-X%B/68].N0``##8J+O_\NI]G#"\N__Q.N0``= XM#!Q8CTGY```!ID?Y```!CB;<)MPFW$Y>3G5.5@``2'D```&.*&X`"$A43KD`Q XM``[Z4(]5CR\Y```!CDZY```,;EB/2A]G/"AN``@,%`";9C)(>0```8XH;@`(5 XM2%1.N0``#OI0CRAN``@,%``P90PH;@`(#!0`.6("8-8H;@`(&+P`&TIY```!+ XME%?%1`43Q0```8I.7DYU3E;__D)N__Y5CR\Y```!CDZY```,;EB/2A]G`F`$2 XM3OH`TA/\``$```&*2'D```&+80#_4EB/##D`(````8MB#`PY`!L```&+9P)@O XMW@PY`"````&+8P)@!$[Z`)0,.0!_```!BV<*##D`"````8MF/!/\`$$```&+, XM2F[__F,J2CD```&,9R)3;O_^'SP`"&$``/I4CQ\\`"!A``#P5(\?/``(80``M XMYE2/3OH`-#HN__ZZ;@`,8B@Z+O_^*&X`"!FY```!BU``4F[__DHY```!C&<,9 XM'SD```&+80``L%2/2'D```&+80#^GEB/8`#_8$[Z`(!(>0```8Y(>0```8M.[ XMN0``#OI0CPPY`"````&+8@I*>0```91F`F#8##D`(````8MC/$IY```!E&8TW XM.B[__KIN``QB%#HN__XH;@`(&;D```&+4`!2;O_^2'D```&.2'D```&+3KD`A XM``[Z4(]@NDIY```!E%?%1`43Q0```8HZ+O_^NFX`#&(,.B[__BAN``A"-%``Q XM3EY.=4Y6``!(>0```9H?+@`(3KD```WV7(].7DYU3E8``!\\``IA`/_<5(].> XM7DYU3E8``$AY```!FC\N``PH;@`(2%1.N0``#F!/[P`*2GD```&@5\5$!1/%R XM```!BDY>3G5.^0``$-Q.5@``2KD```!V9AY9CS\\``I(>0``%(1"ITZY```'+ XM!D_O``HCWP```'9".0```8Q(>0```8Y9CTZY```,-DZY```-4%"/2?D```&.C XM1_D```&F)MPFW";<2'D```&:68].N0``#+Q.N0``#5!0CTGY```!FD?Y```!A XMLB;<)MPFW$Y>3OD``!C::6X^(```;W5T/B``9&]S+FQI8G)A<GD`3E8``"\.2 XM(FX`$#`N``XR+@`,-"X`"C8N``@L>0```&).KO[.+%].7DYU3E8``"\.(FX`* XM"C`N``@L>0```&).KOZJ+%].7DYU3E8``"\.(FX`"C`N``@L>0```&).KOZD; XM+%].7DYU3E8``"AN``HJ#"AN`!`I10`(>@`Z+@`(*&X`$!E%`!U.7DYU3E;_M XM^"HY`````-JY````!%.%+47_^BAN__I"%"AN``Y"5"UY`````/_Z*&[_^@P4B XM`"!F!E*N__I@\"AN__I*%&<.*&X`#CH4NFX`#&("8`1.^@#"*&X`#CH4ROP`G XM4"AN``A"-%``0F[__BAN__H,%``B9@X=?``B__E2KO_Z3OH`"!U\`"#_^2ANI XM__I*%&<\*&[_^AH4NB[_^6<P#&X`3__^9!XH;O_Z)FX`#CH3ROP`4"9N``@X> XM+O_^1_-0`!>40`!2;O_^4J[_^F"\#&X`3__^9!HH;@`..A3*_`!0*&X`"#@N" XM__Y)]%``0C1```PN`"+_^68$4J[_^BAN__H,%``@9@92KO_Z8/`H;@`.4E1@E XM`/\H*&[_^DH49A(Z+@`,4D4H;@`.NE1E!'H!8`)Z`!U%`!).7DYU<`!.N0``C XM`1Q.5@``/SP`'4AY```>2DZY```3N%R/3KD``!.F/SP`($AY```>:DZY```3] XMN%R/3KD``!.F/SP`.4AY```>C$ZY```3N%R/3KD``!.F/SP`($AY```>R$ZY( XM```3N%R/3KD``!.F3KD``!.F/SP`0$AY```>ZDZY```3N%R/3KD``!.F/SP`R XM,TAY```?+$ZY```3N%R/3KD``!.F3KD``!.F3EY.=7``3KD```$<3E8``#HN+ XM``Q+O'__4D4(!0``9P)214C%#(4``'__8P1!O/__T(5.N0```1R?Q2AN``@M; XM3P`()D]311;<4<W__%6/*&X`#C\\`%!(5#\N``PH;@`(2%1.N0``#^Y/[P`,? XM#!\``68.'7P``0`23EY.=4[Z``I"+@`23EY.=7`!3KD````&(#P```"J3KD`) XM``$<3E;_5BAN`!)'[O^P>A,FW%'-__P=?``!_UL_/`!.2&[_L$ZY```0\ER/@ XM2CD```&*9P)@!$[Z`)9";O^N/SP`4$AN_UQ.N0``$@)<CTHY```!BF=8/SP`` XM4$AN_UP_/``"0B<O/```__](;O]62&[_6DZY```'G$_O`!9*+O]:9R0J+O]61 XM."[_KDFN``S81"AN``@YA4``.B[_KE)%/47_KD[Z``9"+O];3OH`!D(N_UL,E XM;@`0_ZYG"DHN_UMG!&``_WQ.N0``$3).^@`N/SP`'$AY```?8DZY```3N%R/* XM/SP`3DAN_[!.N0``$[A<CTZY```3ID(N_UM*+O];9S`H>0```>XO+``R/RX`H XM#"AN``A(5#\\``1.N0``%/9/[P`,'7P``0`63EY.=4[Z``I"+@`63EY.=7`!W XM3KD````&3OD``!/J3E8``$(Y```#756/2'D```(</SP``DAY```"'DZY```5- XM&D_O``I*'V8.3KD``!92<`!.N0````8,>0`!```"'&88##D`/P```AYF#DZYL XM```64G``3KD````&2GD```(<9PH,>0`!```"'&8.,_P``@```V)">0```V0,3 XM>0`"```"'&<*#'D``P```AQF`F`$3OH`HC\\`$Y(>0```AX_/``*0B=Z`R\%O XM2'D```-F2'D```-J3KD```><3^\`%DHY```#:F823KD``!92<`!.N0````9.X XM^@`.*CD```-F,\4```-B/SP`3DAY```";C\\``I")WH#+P5(>0```V9(>0``U XM`VI.N0``!YQ/[P`62CD```-J9A).N0``%E)P`$ZY````!D[Z``XJ.0```V8S4 XMQ0```V0,>0`!```"'&8<2?D```(>1_D```,.>A,FW%'-__P3_``!```#70QYB XM``,```(<9AQ)^0```KY'^0```PYZ$R;<4<W__!/\``$```-=68\_/``02'D`" XM`!^`0J=.N0``!P9/[P`*(]\```!R68\_/``/2'D``!^20J=.N0``!P9/[P`*! XM(]\```!B(_D```!R```#7BAY```#7B/L`#P```(20CD```(6,_P"@````A@S% XM_`$````"&E6/*'D```(2+RP`%C\\``](>0``'Z1.N0``%OY/[P`*2A]G*"AYM XM```"$C/L``P```(8*'D```(2,^P`#@```AH3_``!```"%D[Z``XH>0```A(CM XMU````A)*.0```A9F"DJY```"$F<"8)9*.0```A9G`F`$3OH"["AY```"$B/L+ XM``0```'N0CD```(658\H>0```>XO+``@/SP`!TAY```?MDZY```6_D_O``I*Z XM'V<D$_P``0```A8_/``A2'D``!_`3KD``!.X7(].N0``$Z9.^@`.*'D```'NQ XM(]0```'N2CD```(69@I*N0```>YG`F":2CD```(69@)@!$[Z`,X_/``;2'D`: XM`!_D3KD``!.X7(].N0``$Z99CWH*+P5Z`2\%3KD```<L4(\CWP```VPH>0``Z XM`VQ'^0``'[9Z"!C;5\W__$GY```!OD)40FP``CEY```"&``$.7D```(:``89< XM?``!``@9?``!``E"K``**7P``@D```Y"K``20JP`%BEY```#;``:0JP`'D*L# XM`"(Y>0```A@`)CEY```"&@`H.7D```(8`"HY>0```AH`+#E\``$`+EF/2'D`' XM``&^3KD```=F6(\CWP```>Y*N0```>YF'#\\`!-(>0``(`).N0``$[A<CTZYT XM```3ID[Z`7!*.0```UUF3C\\`!E(>0``(!A.N0``$[A<CTZY```3IC/\554`L XM``'R,_RJJ@```?0H>0```>XO+``R/SP`#TAY```!\C\\``%.N0``%/9/[P`,= XM3OH`OC\\`"!(>0``(#1.N0``$[A<CS\\`$Y(>0```PY.N0``$[A<CTZY```3E XMIE6/2'D```,.+SD```'N/SP`#TAY```!\DZY```7BD_O``Y*'V8"8`1.^@!H* XM/SP`/TAY```@5DZY```3N%R/3KD``!.F/SP`'TAY```@F$ZY```3N%R/3KD`% XM`!.F,_Q550```?(S_*JJ```!]"AY```![B\L`#(_/``/2'D```'R/SP``4ZY; XM```4]D_O``Q.^@`"*'D```'N+RP`,C\Y```#8DZY```4NER/*'D```'N+RP`# XM,C\Y```#9$ZY```4V%R/*'D```'N+RP`,D)G0F<H>0```>X_+``(*'D```'NQ XM/RP`"DZY```4D$_O``Q.^@`"+SD```!R3KD```;N6(\O.0```&).N0``!NY8- XMCTY>3G4`````0F%C:V1R;W`@=C$N,B!B>2!*($1A=FES(#`T+SDQ``!5<V%GT XM92!I<R`Z(&)A8VMD<F]P(%MF9R!B9UT@6W!A=%T`("`@("`@9F<@86YD(&)G5 XM('-P96-I9GD@=&AE(&-O;&]U<G,@=&\@=7-E(&9O<B!T:&4@<&%T=&5R;@``Q XM("`@("`@:68@;VUI='1E9"`P(&%N9"`R(&%R92!U<V5D`"`@("`@('!A="!I1 XM<R!T:&4@;F%M92!O9B!T:&4@9FEL92!C;VYT86EN:6YG('1H92!B86-K9')O, XM<"!P871T97)N`"`@("`@(&EF(&]M:71T960@82!S:6YG;&4@<&EX96P@8VAEH XM8VME<F)O87)D(&ES('5S960``&-O=6QD;B=T(&]P96X@<&%T=&5R;B!F:6QE* XM(#H@`&EN='5I=&EO;BYL:6)R87)Y`&=R87!H:6-S+FQI8G)A<GD``%=O<FMBY XM96YC:"!38W)E96X``$)A8VM$<F]P``!M;V1I9GEI;F<@97AI<W1I;F<@8F%C[ XM:V1R;W`@=VEN9&]W``!C<F5A=&EN9R!N97<@8F%C:V1R;W`@=VEN9&]W``!E2 XM<G)O<B!O<&5N:6YG('=I;F1O=P``=7-I;F<@9&5F875L="!F:6QL('!A='1E] XM<FX``'5S:6YG(&-U<W1O;2!P871T97)N(&9R;VT@9FEL92`Z(`!E<G)O<B!I@ XM;B!P871T97)N(&1E9FEN:71I;VX@9FEL92`H;W(@<&%T=&5R;B!F:6QE(&1O/ XM97-N)W0@97AI<W0I``!W:6QL('5S92!D969A=6QT('!A='1E<FX@:6YS=&5A# XM9`````````/L````IP`````````"```![@```?H```(&```"%````B(```(N8 XM```"8@``!%(```4````&,@``!D8```9P```&N@``!LP```;8```&W@``!NH`] XM``=0```'8@``!XP```>8```'V```!_(```E@```)H@``"=H```H&```*%@``Q XM"BP```I"```*7```"G(```J,```*M```"MX```L(```+,@``"UP```N&```,T XM&```#78```V<```-O```#A8```XT```.K```#LX```\@```/2@``#W8```^># XM```/M@``#[X```_0```0W@``$.X``!$.```1&```$4X``!%8```1:@``$9@`1 XM`!&H```1R@``$A0``!,"```36@``$YP``!/.```3[```%`0``!0,```4*@``! XM%#```!12```46```%'0``!96```69```%FH``!9R```6?```%H(``!:*```6L XME```%IH``!:B```6K```%K(``!:Z```6P```%LH``!;0```6V```%N(``!;H6 XM```6\```%O8``!<"```7+@``%UX``!>&```7D@``%[H``!?<```8"```&%H`! XM`!AH```8;@``&'X``!B&```8K@``&-```!C6```8^```&08``!D.```9*```M XM&3```!F0```9H@``&:H``!G@```9\@``&?H``!IB```::@``&H```!J(```:= XMU@``&MP``!MB```;:```&X(``!N(```;D```&\H``!O0```;V```&^@``!O\4 XM```<A```')X``!RD```<K```',(``!S(```<T```'/X``!T0```=%@``'2@`/ XM`!TP```=3@``'68``!UL```==```'7X``!V$```=C```';H``!W8```=\```3 XM'AH``!XN```>/````/D````!````G````-@```#T```!#```!?P```8$```&> XM#```!A@```8>```&)```!BP```8X```&2@``!F````9F```&:@``!G8```:<8 XM```&L```!M(```;D```'6@``!W8```>2```)J```"<````G.```)U```">@`. XM``H<```*,@``"D@```IB```*>```"I(```J<```*H@``"J@```JN```*O```` XM"L8```K,```*T@``"M@```KF```*\```"O8```K\```+`@``"Q````L:```+L XM(```"R8```LL```+.@``"T0```M*```+4```"U8```MD```+;@``"W0```MZ9 XM```+@```"XX```N<```+I@``"[````NZ```+Q```"\X```O8```+X@``"^P`K XM``OV```,````#`H```P0```,*```##X```Q:```,>@``#*@```S$```,[```E XM#10```T\```/J```#\@```_F```0*```$%X``!"8```0^```$2```!$J```1` XM.```$4```!%(```1<@``$7@``!&,```1H@``$;X``!'P```1^@``$@X``!(HS XM```2+@``$CP``!)&```24@``$F(``!)L```2=@``$H(``!+"```2S@``$M8`T XM`!+B```2]@``$OP``!,,```3%```$R```!,H```30@``$TX``!-4```39```2 XM$VX``!.2```3O@``$]@``!/B```3]@``%!8``!0<```4(@``%#@``!0^```4B XM2@``%&```!1F```4K```%,H``!3H```5(```%28``!4^```7P@``%^0``!B67 XM```8X```&.@``!CR```9%@``&2```!DV```90```&4H``!E0```96```&6(`* XM`!ET```9A```&8H``!F:```9M```&;H``!G$```9U```&=H``!GJ```:!```^ XM&@H``!H2```:&@``&B```!HP```:.```&D```!I&```:5@``&G0``!J2```:8 XMF```&IP``!JB```:J@``&K```!JX```:P```&L@``!KJ```:\@``&O@``!L`C XM```;"```&Q(``!L8```;'@``&R8``!LP```;/@``&T8``!M,```;5```&W@`K XM`!N:```;H```&Z8``!NN```;N```&_```!OV```<"@``'!8``!P>```<1@``= XM'%8``!Q>```<9@``'&X``!Q^```<C```')(``!RV```<V```'.```!SF```<( XM]```'2(``!TX```=/@``'4@``!V4```=G```':(``!VP```=R```'=(``!W@/ XM```=Z@``'?@``!X&```>$```'B@``!XV`````````_(```/K````W````_(`\ X+``/J`````````_(&H X`` Xend Xsize 10136 END_OF_FILE if test 14231 -ne `wc -c <'backdrop.uu'`; then echo shar: \"'backdrop.uu'\" unpacked with wrong size! fi # end of 'backdrop.uu' fi if test -f 'block.pattern' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'block.pattern'\" else echo shar: Extracting \"'block.pattern'\" $272 characters$ sed "s/^X//" >'block.pattern' <<'END_OF_FILE' X1111111111111111 X1111111111111111 X1100000011000000 X1100000011000000 X1100000011000000 X1100000011000000 X1100000011000000 X1100000011000000 X1111111111111111 X1111111111111111 X1100000011000000 X1100000011000000 X1100000011000000 X1100000011000000 X1100000011000000 X1100000011000000 END_OF_FILE if test 272 -ne `wc -c <'block.pattern'`; then echo shar: \"'block.pattern'\" unpacked with wrong size! fi # end of 'block.pattern' fi if test -f 'hatch.pattern' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'hatch.pattern'\" else echo shar: Extracting \"'hatch.pattern'\" $272 characters$ sed "s/^X//" >'hatch.pattern' <<'END_OF_FILE' X1000100010001000 X0001000100010001 X0010001000100010 X0100010001000100 X1000100010001000 X0001000100010001 X0010001000100010 X0100010001000100 X1000100010001000 X0001000100010001 X0010001000100010 X0100010001000100 X1000100010001000 X0001000100010001 X0010001000100010 X0100010001000100 END_OF_FILE if test 272 -ne `wc -c <'hatch.pattern'`; then echo shar: \"'hatch.pattern'\" unpacked with wrong size! fi # end of 'hatch.pattern' fi if test -f 'startup-sequence.example' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'startup-sequence.example'\" else echo shar: Extracting \"'startup-sequence.example'\" $361 characters$ sed "s/^X//" >'startup-sequence.example' <<'END_OF_FILE' X; this is the fragment of my own startup sequence X; I use with WB and BackDrop X Xrun wb102 ; launch wb to force Workbench into window X XLoadWB delay X Xbackdrop 0 2 s:hatch.pattern ; load my own fave pattern X Xwsize -450 -100 Workbench ; size WorkBench down Xwmove 442 4 Workbench ; shunt workbench into one corner of the screen X END_OF_FILE if test 361 -ne `wc -c <'startup-sequence.example'`; then echo shar: \"'startup-sequence.example'\" unpacked with wrong size! fi # end of 'startup-sequence.example' fi if test -f 'wb102.doc' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'wb102.doc'\" else echo shar: Extracting \"'wb102.doc'\" $2576 characters$ sed "s/^X//" >'wb102.doc' <<'END_OF_FILE' XWB - A mindless WorkBench Hack X------------------------------ XBy J Davis 10/03/90 X Xversion 1.02 - 07/07/90 X XThose who've had a sneak preview of WorkBench 2.0 will have noticed that in X2.0 WorkBench is no longer a backdrop window, but a normal sizable, Xdraggable window. X XAt first you may wonder if this is any real use ... but it can be if you X( like me ) run Jrcomm on workbench. The trouble is both WB and Jrcomm Xopen backdrop windows ... meaning that you can't depth arrange them. XHence, once Jrcomm is on WB, you cant get at the ( main ) WB window to Xopen disks ( or access MyMenu ... the main thing that annoyed me ). X XThis little machine code hack cures that, and gives you a 1.4 style Xworkbench to boot! X XWhat it does and how it does it X------------------------------- X XWB installs some new code in Intuition OpenWindow vector. As each window Xopens it checks the windows Flags field to see if it has the 'workbench' Xbit set. This is used to signify a window belonging to workbench. X XIf it is a WB window, then it clears the Backdrop and Borderless bits, and Xsets the bits to give the window size, drag and depth gadgets. It then Xallows the window open ( by calling the original OpenWindow code ) and Xremoves itself. X XHow to use it X------------- X XIn your startup-sequence, just before the LOADWB line, put in X X RUN WB X XYou need to run it, so as workbench can load. Don't worry, as soon as WB Xhas opened the background task will quit. X XThe soure code X-------------- X XIncluded is the full assembler source ( I assembled it using HiSoft's Xbrilliant devpac but most other assemblers should be happy with it ). X XThe code is easily modifiable to be a general window intercept package ... Xpossibilities include forcing WB windows to open on the front screen, Xforcing packages to NOT open backdrop windows etc. X XNote that the current slightly weird way the code works ( set functions to Xone block of code, then waits for a signal back from it ) is simply so as Xto allow the patch to be removed. If you want a permanent patch you Xshould allocmem some space and copy the patch into it, before doing a Xsetfunction and quitting ( natuarally the patch code will have to be Xposition independent ! ). X XVersion 1.02 Changes X-------------------- X XThis is just a maintenance release. In v1.01 I commited the cardinal sin Xof writing self modifying code ( which may not work properly on 030s 040s X). Plus it still had a lot of unecessary debugging code in it. All of Xthat has been cleaned up in this release. END_OF_FILE if test 2576 -ne `wc -c <'wb102.doc'`; then echo shar: \"'wb102.doc'\" unpacked with wrong size! fi # end of 'wb102.doc' fi if test -f 'wb102.s' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'wb102.s'\" else echo shar: Extracting \"'wb102.s'\" $6633 characters$ sed "s/^X//" >'wb102.s' <<'END_OF_FILE' X; program to intercept all openwindow calls X; waits until it's WB and forces WB to open sizable/draggable/depthable X; then restores normal openwindow and quit X; X; v1.0 initial version X; X; v1.01 90/04/01 fixed bug causing crash if $0<>#0 X; ( guess who forgot to put #0 instead of $0 for X; the lib version :-) X; X; v1.02 90/07/07 cleaned up code to avoid illegal ( on 030 ) X; self-modifying code X; ( oops .. guilty as charged your honour! :-) X; also cleaned up code to reduce chances of X; crashes whilst code de-installs itself ( was X; very rough and ready, is now just rough :-) X X;========================================================== X Xopenlibrary equ -$228 ; misc lib call offsets we need Xsetfunction equ -$1a4 ; I know it's slack but it's quick :-) Xcloselibrary equ -$19e X Xopenwind equ -$cc X Xoutput equ -$3c Xdelay equ -$c6 Xwrite equ -$30 X Xoffsetflags equ 14 ; offset of flags in newwindow struct X Xdebug equ 0 ; whether we want extra debug info X X;==================================================================== X Xstart: move.l $4,a6 X move.l #intuiname,a1 X move.l #$0,d0 X jsr openlibrary(A6) ; open intuition X X move.l d0,intuibase ; save lib in ibase X X move.l $4,a6 X move.l #dosname,a1 X move.l #$0,d0 X move.l $4,a6 X jsr openlibrary(a6) ; open dos X X move.l d0,dosbase ; save lib in dosbase X X move.l $4,a6 X move.l intuibase,a1 X move.w #openwind,a0 X move.l #ouropenwind,d0 X jsr setfunction(a6) ; replace intuitions open window X X move.l d0,oldopenwind ; save old vector X X IFNE debug X move.l dosbase,a6 X jsr output(a6) ; get handle on stdout X X move.l d0,outhandle ; save the output handle X X move.l dosbase,a6 X move.l outhandle,d1 X move.l #startstr,d2 X move.l #es-startstr,d3 X jsr write(a6) ; print startup message X ENDC X X ; now wait for WorkBench to open X Xwloop: cmpi.b #$1,flag ; has it happened yet ? X beq done X X move.l dosbase,a6 X move.l #50,d1 X jsr delay(a6) ; wait 1 sec X X bra wloop ; loop waiting for patch to signal us X Xdone: ; patch has done it's thing, now quit X X IFNE debug X move.l dosbase,a6 X move.l outhandle,d1 X move.l #quitstr,d2 X move.l #eq-quitstr,d3 X jsr write(a6) ; print quit message X ENDC X X move.l $4,a6 X move.l intuibase,a1 X jsr closelibrary(a6) ; close intuition X X move.l $4,a6 X move.l dosbase,a1 X jsr closelibrary(a6) ; close dos X X rts ; all done, quit X X;================================================================ X Xouropenwind: ; this replaces the normal openwindow call X ; we snoop the newwind to see if X ; flags INCL WorkBenchWind X X ; on entry A0 = newwindowptr X ; on return D0 = windowptr X X IFNE debug X movem.l a0-a6/d0-d7,-(a7) ; save everything X X move.l dosbase,a6 X move.l outhandle,d1 X move.l #windstr,d2 X move.l #ew-windstr,d3 X jsr write(a6) ; print up a status message X X movem.l (a7)+,a0-a6/d0-d7 ; get all the regs back so we X ; see where a0 points X ENDC X X movem.l a0-a6/d0-d7,-(a7) ; save all regs as we alter them X X move.l offsetflags(a0),d0 ; get flags in d0 X X IFNE debug X bsr printflags ; print them out X ENDC X X btst.l #25,d0 ; is WbencWindow set X X beq carryon ; not set .. do nothing X X bset.l #0,d0 ; set windowsizing X bset.l #1,d0 ; set window drag X bset.l #2,d0 ; set window depth X X bclr.l #8,d0 ; clear backdrop X X bclr.l #11,d0 ; clear borderless X X move.l d0,offsetflags(a0) ; copy in modified flags X X IFNE debug X bsr printflags ; print out changed flags X X move.l dosbase,a6 X move.l outhandle,d1 X move.l #wbwindstr,d2 X move.l #ewb-wbwindstr,d3 X jsr write(a6) ; print status message X ENDC X X ; now set openwindow vector back to it's original value X ; note this is potentially risky, as if another program X ; has setfunctioned openwindow since we installed X ; we will effectively remove it AS WELL as ourselves!! X X ; I presume setfunction does a Forbid for us while removing X X move.l $4,a6 X move.l intuibase,a1 X move.w #openwind,a0 X move.l oldopenwind,d0 X jsr setfunction(a6) ; put back orig openwindow X X ; now signal back that it's ok to remove us now X X move.b #$1,flag ; set terminate flag X Xcarryon: ; call old openwindow code X ; note this is changed from the last version X ; which used self-modifying code which is of course X ; very poor style! X X movem.l (a7)+,d0-d7/a0-a6 ; get all the regs back X X ; openwindow only takes a newwindowptr in A0 X ; and returns windowptr in D0, so we used unused X ; A1 reg as pointer to code to jump to X X ; CBM actually recommend you copy back the original X ; vector and jump thru that via jsr -blarg(a6) X ; this is a bit quicker, if slightly illegal X X move.l a1,-(a7) ; save a1 as we're going to use it X move.l oldopenwind,a1 ; get address of old openwindow X jsr (a1) ; call old code X move.l (a7)+,a1 ; get back original a1 X X rts X X;=================================================================== X IFNE debug Xprintflags: ; print out WindowFlags in D0 for debugging X movem.l a0-a6/d0-d7,-(a7) ; save all regs X move.l #31,d1 ; print out all 32 bits X Xploop: btst d1,d0 ; see what bit is set to X movem.l d0-d7/a0-a6,-(a7) ; save regs X beq iszero X X move.l dosbase,a6 X move.l outhandle,d1 X move.l #onestr,d2 X move.l #1,d3 X jsr write(a6) ; print "1" X bra next X Xiszero: move.l dosbase,a6 X move.l outhandle,d1 X move.l #zerostr,d2 X move.l #1,d3 X jsr write(a6) ; print "0" X Xnext: movem.l (a7)+,d0-d7/a0-a6 ; restore regs X X dbf d1,ploop ; do it for all 32 bits X X move.l dosbase,a6 X move.l outhandle,d1 X move.l #lfstr,d2 X move.l #1,d3 X jsr write(a6) ; print a LF X X movem.l (a7)+,d0-d7/a0-a6 ; restore all regs X rts X ENDC X X;============================================================= X; data and var storage X Xflag: dc.b 0 X ; use this to signal main program from patch X ; when we want to terminate X Xonestr: dc.b "1" Xzerostr: dc.b "0" Xlfstr: dc.b 10 X Xstartstr: dc.b "installed .. waiting for window to open",10 Xes: dc.b 0 X Xwindstr: dc.b "window opened",10 Xew: dc.b 0 X Xwbwindstr: dc.b "WorkBench window opened!! ",10 Xewb: dc.b 0 X Xquitstr: dc.b "removing and terminating",10 Xeq: dc.b 0 X Xintuiname: dc.b "intuition.library",0 X Xdosname: dc.b "dos.library",0 X X cnop 0,4 ; align var storage X Xoldopenwind: dc.l 0 ; old openwindow address is saved here Xouthandle: dc.l 0 ; store handle to stdout here Xdosbase: dc.l 0 ; store dosbase ptr here Xintuibase: dc.l 0 ; store ibase ptr here X X end END_OF_FILE if test 6633 -ne `wc -c <'wb102.s'`; then echo shar: \"'wb102.s'\" unpacked with wrong size! fi # end of 'wb102.s' fi if test -f 'wb102.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'wb102.uu'\" else echo shar: Extracting \"'wb102.uu'\" $768 characters$ sed "s/^X//" >'wb102.uu' <<'END_OF_FILE' Xbegin 666 wb102 XM```#\P`````````!``````````````!G```#Z0```&<L>0````0B?````6X@' XM/`````!.KOW8(\````&8+'D````$(GP```&`(#P`````+'D````$3J[]V"/`* XM```!E"QY````!")Y```!F#!\_S0@/````*!.KOY<(\````&,##D``0```/QG\ XM```6+'D```&4(CP````R3J[_.F``_^(L>0````0B>0```9A.KOYB+'D````$X XM(GD```&43J[^8DYU2.?__B`H``X(```99P``/`C````(P``!",```@B```@(( XM@``+(4``#BQY````!")Y```!F#!\_S0@.0```8Q.KOY<$_P``0```/Q,WW__G XM+PDB>0```8Q.D2)?3G4`,3`*:6YS=&%L;&5D("XN('=A:71I;F<@9F]R('=ID XM;F1O=R!T;R!O<&5N"@!W:6YD;W<@;W!E;F5D"@!7;W)K0F5N8V@@=VEN9&]W/ XM(&]P96YE9"$A(`H`<F5M;W9I;F<@86YD('1E<FUI;F%T:6YG"@!I;G1U:71I3 XM;VXN;&EB<F%R>0!D;W,N;&EB<F%R>0`````````````````````````#[```8 XM``\`````````"````!@````D````.@```$8```!0````6@```&(```!L````+ X=A@```)8```#0````V@```.8```#R`````````_)0C X`` Xend Xsize 524 END_OF_FILE if test 768 -ne `wc -c <'wb102.uu'`; then echo shar: \"'wb102.uu'\" unpacked with wrong size! fi # end of 'wb102.uu' fi if test -f 'wmove.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'wmove.uu'\" else echo shar: Extracting \"'wmove.uu'\" $14508 characters$ sed "s/^X//" >'wmove.uu' <<'END_OF_FILE' Xbegin 666 wmove XM```#\P`````````"``````````$```CG```!D0```^D```CG2.=^_DOO`#0D2 XM2"0`2?D`````+'@`!"E.`$`I3P!,0JP`2)/)3J[^VB9`*6L`F``X2JL`K&<`) XM`'`@#9"M``0&@````(`I0``$80`!>B!K`*S1R-'((F@`$-/)T\D@`G(`$ADI0 XM20!4T(%2@$)G4H`"0/_^G\!5@$)W"``@`E.`U($?L@``(`!3@E'(__8?O``@( XM(`!3@A^Q(``@`%'*__@B3R\)8```;"EK`#H`!`:L````@``$80`!#F$``/@I& XM0`!(+P`D0"`J`"1G$BQL!!@@0"(H```I00`X3J[_@B(J`"!G&B0\```#[4ZNX XM_^(I0`!09PKEB"!`)V@`"`"D(&P`2"\(2&P``"!H`"0I:``$`%1'^0``!"QR) XM`"`\````AF`")L%1R/_\3KH2H'``8`0@+P`$+P`@+``L9P0@0$Z03KH'UBQXY XM``0B;`083J[^8DJL!"!G"")L!"!.KOYB2JP$)&<((FP$)$ZN_F)*K`!89P@B? XM;`!83J[^8DJL`$AG)"(L`#QG!$ZN_]PB+`!09P1.KO_<+'@`!$ZN_WPB;`!(* XM3J[^AB`?+FP`3$S??WY.=7!D8(!!ZP!<3J[^@$'K`%Q.KOZ,3G5#[`!<<`!.@ XMKOW8*4`$&&?:3G4``+_L``1E`!]&2&P`:$ZZ"!983TAX``I.N@1,6$].=4Y5= XM``"_[``$90`?)"\M``A(;`"0+RT`#$ZZ"9A/[P`,4X!G`F&\3EU.=4Y5__Q(' XMYP`"O^P`!&4`'O9*K0`(9SX@;0`(2A!G-B!L!!PK:``\__Q*K?_\9S(@;?_\* XM2J@`%F<2+RT`""\H`!9.N@RZ4$]*@&<6(&W__"M0__Q@U")L!!P@:0`X*TC_9 XM_$JM__QF("QX``1.KO]V+RT`"$AL`)1.N@=D4$](>``*3KH#FEA/("W__$S?4 XM0`!.74YU3E7__$CG``*_[``$90`>9$JM``AG/B!M``A*$&<V(&T`#"MH``3_R XM_$JM__QG,B!M__Q*J``@9Q(O+0`(+R@`($ZZ#"A03TJ`9Q8@;?_\*U#__) XM(FP$'"!I`#0K2/_\2JW__&8J+'@`!$ZN_W8@;0`,+R@`%B\M``A(;`"L3KH&, XMRD_O``Q(>``*3KH"_EA/+'@`!$ZN_W8@+?_\3-]``$Y=3G5.5?_H2.<X(K_L% XM``1E`!W`D<@K2/_X*TC__"(M``@,@0````-M"`R!````!6\$80#^4B!M``PO1 XM*``$2&W_]&$`_F!03R!M``PO*``(2&W_\&$`_DY03R(M``@,@0````-O&"!M5 XM``Q*J``,9PX@:``,$!!*`&<$*TC__`R!````!&\8(&T`#$JH`!!G#B!H`!`0F XM$$H`9P0K2/_X0^P`U'``+'@`!$ZN_=@I0`0<2JP$'&<``4`L>``$3J[_?"\M= XM__AA`/X(6$\O`"\M__PK0/_H80#^BE!/*T#_["QX``1.KO]V(&W_[#`H``1(P XMP$2`)"W_]+2`;`0K0/_T,"@`!DC`1(`D+?_PM(!L!"M`__`P*``$2,`B+?_T8 XMTH`T*``(2,+2@B)M_^@V*0`,2,.R@V\(EH*6@"M#__0P*``&2,`B+?_PTH`TE XM*``*2,+2@C8I``Y(P[*#;PB6@I:`*T/_\"1H`"XO*@`6+R@`($AL`.9.N@4V\ XM3^\`#"!M_^PP*``$2,`R*``&2,$O`2\`2&P!!$ZZ!19/[P`,2JW_]&8&2JW_@ XM\&=$(&W_[#`H``1(P"(M__30@30H``9(PB8M__#4@R\#+P$O`B\`2&P!($ZZN XM!-I/[P`4(&W_["`M__0B+?_P+&P$'$ZN_U@B;`0<+'@`!$ZN_F),WT0<3EU.G XM=4CG,#(L>0``!!P@;P`8(F\`'"1O`"`F;P`D("\`*"(O`"PD+P`P)B\`-$ZN' XM_J1,WTP,3G5.5?_\2.<@`'``*4``&$JM``AK)"0M``BTK`.$;!HB`N>!0>P%8 XM!")(T\%*D6<*(@+G@='!(`A@"'`)*4`"S'``3-\`!$Y=3G4`````````````Y XM``````````````````!*K`0<9A)#[`*X<``L>``$3J[]V"E`!!PI;`!4`FQ(( XM>``H2'@`^G``+P`O`$AL`J0O`$AL`HHO`$ZZ_S)/[P`@2'@`%$ZZ&S)83TYU* XM````````````````3E7_]$CG`"!%[`+LM/P``&<V""H``@`;9BH(*@`!`!MGE XM(B`J``20J@`0*T#_^$J`9Q(O`"\J`!`O*@`<3KH)BD_O``PD4F#$+RT`"$ZZ7 XM&M)83TS?!`!.74YU``!G/B!M``AP84Y5```O+0`(80983TY=3G5.5?_L2.<#^ XM("XM``A*AVX&<`!@``#$#(<````(;`)^""`'(`=6@.2`Y8`N`$'L`WPD4"M(9 XM__BT_```9TXB*@`$LH=M/K*'9A(@4B)M__@BB)^L`X`@"F```(`@*@`$D(<,L XM@`````AM&B!*($K1QR"2(4``!")M__@BB)^L`X`@"F!6*TK_^"128*P@!R(L3 XM!"@@!]"!4X!.NAD8(BP$*$ZZ&>Q0@"P`(`8@!E:`Y(#E@"P`+P9.N@"B6$\K[ XM0/_P2H!G%"\&+P!.N@,B4$\O!V$`_S!83V`"<`!,WP3`3EU.=2!M``A*$&<V, XM(&T`#$Y5```B+0`(#($````P;0P,@0```#EN!'`!8`)P`$Y=3G4``$Y5__8OY XM+0`(3KK]NEA/*T#_]DJ`9@1P_V`J+RT`$"\M``P@;?_V+R@`!$ZZ&OQ/[P`,! XM*T#_^DJL`!AG!'#_8`0@+?_Z3EU.=4Y5__@@+0`(!H`````,+T```"`O``!R5 XM`"QX``1.KO\Z*T#__$JM__QF!'``8#0@+0`(!H`````,(&W__"%```@O"$ALF XM!"QA``$(4$]*K`-P9@8I;?_\`W`@;?_\T/P`#"`(3EU.=4Y5__PO+0`(89!83 XM3RM`__Q*@&8&,'S__R`(3EU.=4Y5__A(YP$@80``@'``*4``$"E```@I0``,% XM*4`#?"E``X`I0`-T*4`#<"E``WA*K`-H9TP@+`0H(BP#:-*`4X$@`2(L!"A.( XMNA>,(BP$*$ZZ&&!0@"X`(`<@!U:`Y(#E@"X`+P=A`/\66$\D0+3\``!F!'#_P XM8`PO!R\*3KH!>%!/<`!,WP2`3EU.=4Y5__@K;`0L__Q*K?_\9R0@;?_\*U#_C XM^")M__P@;?_\("@`""QX``1.KO\N*VW_^/_\8-:1R"E(!#`I2`0L3EU.=4Y5; XM``!(YP`@(FT`""!I``0B;0`,(T@`!)'((H@D;0`(2I)F`B2)2JH`!&<&(&H`Y XM!""))4D`!$S?!`!.74YU```K2/_X*TC__"(M``@,@0````-M"`R!````!6\$U XM80!P84Y5``!2K`0X4ZP#&B`L`QI*@&L4(&P#$E*L`Q(@+0`($(!R`!(08!@@B XM+0`(`H````#_2&P##B\`3KH&>E!/(@!.74YU3E4``$*L!#A(;0`,+RT`"$AZ5 XM_ZI.NA!43^\`#$AL`PY(>/__3KH&2E!/("P$.$Y=3G4``$Y5__@O+0`(3KK[0 XM2EA/*T#__$J`9@1P_V`J+RT`$"\M``P@;?_\+R@`!$ZZ%^Q/[P`,*T#_^$JLH XM`!AG!'#_8`0@+?_X3EU.=0```````G!A3E7__"`M``PO`"\M``@K0/_\8090" XM3TY=3G5.5?_H2.<A,"XM``Q*AVX&</]@``#R#(<````(;`)^""`'(`=6@.2`+ XMY8`N`"!M``@K2/_TT<??K`.`0^P#?"11*TC_\"M)__BT_```9P``HB!*("H`1 XM!"!*T<`K2/_L)"W_\+7"8Q8B;?_T(HHC1P`$)FW_^":)<`!@``",M<)F'B)2M XM)FW_]":)("H`!"(`TH<G00`$(FW_^"*+<`!@:")M__2SR&0(GZP#@'#_8%BSF XMR&8N2I)G#B(2M(%C")^L`X!P_V!"WZH`!$J29Q"TDF8,($(@*``$T:H`!"209 XM<`!@)BM*__@K;?_L_^@D4F``_UH@;?_X(*W_])'((FW_]"*((T<`!"`(3-\,1 XMA$Y=3G5.5?_H2.<P`"EM``@$/$'M`!!"K?_\*TC_["!M``Q*$&<``29P`!`00 XM4JT`#$'L`5W1P!(0*T#_^`@!``-FW`R`````)68``,@@;0`,#!``)68R<``@: XM;`0\$!!2K`0\*T#_^$'L`5W1[?_X$!`(```#9N`,K0```"7_^&>>("W__&``? XM`,H@;0`,#!``*F<,*VW_[/_H6*W_[&`*D\E2K0`,*TG_Z$*M__0O+?_H2&W_[ XM]$AZ`*(O+0`,3KH.HD_O`!`K0/_P2H!6P40!2(%(P4J!9P0K0``,)BW_]`R#: XM_____V882H%G!%*M__Q*K?_\;P8@+?_\8%9P_V!22H-G!%.L!#Q*K?_P9C@@+ XM+?_\8#YP`"!L!#P0$"M`__12K`0\0>P!7='M__00$`@```-FX"(M__2RK?_X# XM9P#^XB`M__Q@#%*M__Q@`/[4("W__$S?``Q.74YU3E7__'``(&P$/!`04JP$0 XM/"M`__Q*@&8"</].74YU```DB4JJ``1P84Y5__!(YR``<``K0/_\*T#_^"M`K XM__`@;0`($A`,`0`M9@QP`2M`__@K0/_P8`P,`0`K9@9P`2M`__AP`"!M``@B) XM+?_X$#`8`"\`3KKZ+%A/2H!G*B`M__QR"DZZ$[PB+?_X4JW_^'0`(&T`"!0P_ XM&`#0@@2`````,"M`__Q@O$JM__!G!$2M__P@;0`,(*W__"`M__A,WP`$3EU.J XM=4Y5__)(YP`@0BW_^W`(*T#__%.M__P@+0`,(@`"@0````]![`+0T<$B+?_\" XM&Y`8\^B`*T``#`*`#____RM```Q*K0`,9LQ![?_ST>W__")()&T`"!399OQPJ XM")"M__Q,WP0`3EU.=4Y5```O+0`,+RT`"&&,4$].74YU``!.5?_P2.<@('`+" XM*T#_\$(M__]3K?_P("T`#"(``H$````'!H$````P)"W_\!N!*/3F@"M```P") XM@!____\K0``,2JT`#&;,0>W_]-'M__`B2"1M``@4V6;\<`N0K?_P3-\$!$Y=M XM3G5.50``+RT`#"\M``AAC%!/3EU.=0``3E7_\$CG`"!P"RM`__!"+?__4ZW_. XM\"`M``QR"DZZ$;P&@0```#`@+?_P&X$(]"`M``QR"DZZ$:0K0``,2JT`#&;0G XM0>W_]-'M__`B2"1M``@4V6;\<`N0K?_P3-\$`$Y=3G4``"!O``0B;P`(<`!RR XM`!`8$AD,``!A;0H,``!Z;@0$```@#`$`86T*#`$`>FX$!`$`()"!9@1*`6;46 XM3G4``$Y5__A(YP$`(&T`#$H89OQ3B)'M``PN""!M``A*&&;\4XB1[0`((`@B) XM;0`(T\`K2?_X(BT`$+Z!8P(N`2`'(&T`#&`"$MA3@&3Z(&W_^$(P>``@+0`(E XM3-\`@$Y=3G4``$Y5__PK;0`(__P@;?_\2A!G&'``$!`O`$ZZ`!I83R!M__P03 XM@%*M__Q@X"`M``A.74YU```@+P`$#```86T*#```>FX$!```($YU``!.5?_XM XM+RT`"$ZZ]7983RM`__A*@&8$</]@2"!M__@(*``#``-G$DAX``)"IR\M``A.[ XMNO>*3^\`#"\M`!`O+0`,(&W_^"\H``1.NA)*3^\`#"M`__Q*K``89P1P_V`$8 XM("W__$Y=3G4``$Y5_^Q(YR`@)&T`#"`M``@B*@`8)`$"@@```#$K0/_T2H)GT XM!G#_8``"R"`!`H```(``5L)$`DB"2,(;0O_^2JH`%&8``)((`0`"9@``BG``Y XM)4``#`RM_____P`(9P`"DB\*3KH"E%A/2H!G#`CJ``4`&W#_8``">@CJ``$`T XM&THM__YG#B`J`!0B`$2!)4$`#&`(("H`%"5```Q3J@`,("H`#$J`:Q0@:@`$H XM4JH`!"`M``@0@'(`$A!@%B`M``@"@````/\O"B\`80#_-E!/(@`@`6```AP(K XM*@`"`!MG:"(M``@,@?____]F!G``8``"`AM!__]*+?_^9R8,@0````IF'G`"> XM+P!(;`+D+RH`'"M`__!.NOZ$3^\`#"M`__A@''`!+P!(;?__+RH`'"M`__!.Z XMNOYF3^\`#"M`__AP_RM```A@``#\".H``0`;2BW__F=6(BT`"`R!_____V=*8 XM5*H`#`R!````"F8B(&H`!%*J``00O``-2JH`#&L,+PI(>/__80#^?%!/4JH`T XM#"!J``12J@`$("T`"!"`2JH`#&L``5!P_RM```@@*@`$D*H`$"M`__!*@&<`` XM`(((*@`&`!IG7DAX``)"IR\J`!Q.NO6&3^\`#"M`_^Q*+?_^9T)3K?_L("W_P XM[$J`:S9"IR\`+RH`'$ZZ]6!/[P`,2'@``4AM__TO*@`<3KKWO$_O``Q*K``8% XM9@P0+?_]#```&F?`3G$O+?_P+RH`$"\J`!Q.NOUJ3^\`#"M`__A@!G``*T#_[ XM^"(M__@,@?____]F"`CJ``4`&V`,LJW_\&<&".H`!``;2BW__F<.("H`%"(`H XM1($E00`,8!@(*@`"`!MG"'``)4``#&`(("H`%"5```P@:@`0)4@`!"(M``@,S XM@?____]G+%.J``P@*@`,2H!K$"!J``12J@`$$(%P`!`08!`"@0```/\O"B\!^ XM80#].%!/("H`&`*`````,$J`9P1P_V`2(BW_]`R!_____V8$<`!@`B`!3-\$V XM!$Y=3G5.50``(&T`"$JH`!1G#`@H``,`&V8$<`!@/"\L`5A.NO,<6$\@;0`(N XM(4``!"%``!!*@&8*<`PI0`+,</]@&"%L`5@`%`*H____\P`8<``A0``,(4``4 XM"$Y=3G4``&<``I(O"G!A3E7_\$CG`3`D;0`(#*P````@!$!L``"0$A(,`0`@O XM9PP,`0`)9P8,`0`*9@12BF#H2A)G<B`L!$#E@%*L!$!![`1(T<`K2/_\#!(`= XM(F8H4HH@BDH29PH,$@`B9P12BF#R2A)F#$AX``%.N@TJ6$]@G$(24HI@EB!M` XM__P@BDH29Q@2$@P!`"!G$`P!``EG"@P!``IG!%**8.1*$F8"8`A"$E**8`#_L XM:$JL!$!F!B!L`$A@!$'L!$@I2`1$2JP$0&8``(9![`-4(DA'[`3()MDFV2;9( XM)MDVD29L`$@B:P`D2'@`*"\I``1(;`3(3KKZI$_O``Q![`3((@@D/````^XLE XM;`083J[_XBE`!0@@+`4(*4`%$'($*4$%#"E`!1@I0044Y8`K0/_PD\DL>``$O XM3J[^VBM`__0@;?_P(FW_]"-H``@`I'X`8#(L;`083J[_RBE`!0@L;`083J[_5 XMQ"E`!1!![`-F(@@D/````^TL;`083J[_XBE`!1A^!"`'(`<`@```@`&!K`4$P XM(`<@!P"```"``H&L!0P`K```@`,%%$JL`NAG!'``8`8@/```@``N`$*L`P@@: XM!R`'`(`````!*4`#!'`!*4`#*B`'(`<`@`````(I0`,F<`(I0`-,(`<@!P"`` XM````@"E``TA!^@Q&*4@`,"\L!$0O+`1`3KKME%!/0J=.NO!R6$],WPR`3EU.V XM=0``2H!K$"!J``12J@`$$(%P`!`08!`"@0``3E7_Q$CG("!P`!M\`"#_^W(`$ XM*T'_]G3_*T+_\D'M_]`;0/_Q&T#__!M`__T;0/_^&T#__RM!_^0K0?_H*TC_L XMS"!M``A*$&=4$!`"0`#_<AA=06M(L'L0"&;V3OL0!``C8```+``@8```'@`KF XM8```$``M8````AM\``'__V`8&WP``?_^8!`;?``!__U@"!M\``'__$YQ4JT`? XM"&"D(&T`"!(0#`$`,&8*&WP`,/_[4JT`""!M``@,$``J9A(B;0`,(%%8D2M0[ XM__92K0`(8!!(;?_V+PA.NO9>4$_1K0`((&T`"!(0#`$`+F8P4JT`""!M``@,^ XM$``J9A(B;0`,(%%8D2M0__)2K0`(8!!(;?_R+PA.NO8B4$_1K0`((&T`"!(0C XM#`$`;&8,&WP``?_Q4JT`"&`*#`$`:&8$4JT`""!M``@0$%*M``@;0/_P`D``2 XM_W(P74%K``)NL'L0"&;T3OL0!`!C8``"1`!S8``!_`!88``!B@!X8``!A`!P] XM8``!;`!O8``!&@!U8```\`!D8````DHM__%G#")M``P@45B1(!!@"B)M``P@F XM45B1(!`K0/_L2H!J"G(!1*W_["M!_^A*K?_H9P1P+6`,2BW__F<$<"M@`G`@> XM&T#_T'``$"W__B(M_^B"@'``$"W__8*`2H%G"%*M_\Q2K?_D+RW_["\M_\Q.9 XMNO;&4$\K0/_(2JW_\FH&<`$K0/_R("W_R"(M__*2@"M!_\1*@6\R(&W_S")(O XMT\$B`"1(8`(2VE.!9/IP`!`M__LB+?_$(&W_S&`"$,!3@63Z("W_\BM`_\C18 XMK?_D0>W_T"M(_\Q*+?__9P`!7!M\`"#_^V```5)*+?_Q9PPB;0`,(%%8D2`0G XM8`HB;0`,(%%8D2`0*T#_[&``_UY*+?_Q9PPB;0`,(%%8D2`08`HB;0`,(%%8O XMD2`0*T#_[$HM__QG$B!M_\P0O``P4JW_S'(!*T'_Y"\`+RW_S$ZZ]7!03RM`O XM_\A@`/\D&WP`,/_[2JW_\FH&<`@K0/_R2BW_\6<,(FT`#"!16)$@$&`*(FT`O XM#"!16)$@$"M`_^Q*+?_\9QX@;?_,$+P`,%*M_\P@;?_,$+P`>%*M_\QR`BM!' XM_^0O`"\M_\Q.NO2*4$\K0/_(#"T`6/_P9@#^M$AM_]!.NO9J6$]@`/ZF(FT`. XM#"!16)$B4"M)_\RR_```9@A![`-L*TC_S"!M_\Q*&&;\4XB1[?_,*TC_Y$JM: XM__)K+B(M__*QP6\F*T'_Y&`@<`$K0/_D(FT`#"!16)$@$!M`_]!"+?_18`9P# XM`&```*@B+?_D)"W_]K2!;`AP`"M`__9@!).M__9*+?__9T)3K?_D("W_Y$J`- XM:QAP`"!M_\P0$%*M_\PO`"!M`!!.D%A/8-Q3K?_V("W_]DJ`:U1P`!`M__LO8 XM`"!M`!!.D%A/8.)3K?_V("W_]DJ`:Q)P`!`M__LO`"!M`!!.D%A/8.)3K?_D_ XM("W_Y$J`:QAP`"!M_\P0$%*M_\PO`"!M`!!.D%A/8-P@+0`(3-\$!$Y=3G5.` XM5?_V*VT`$/_V(&T`#!`04JT`#!M`__]*`&=V#```)68P(&T`#`P0`"5F!E*MW XM``Q@("\M``A(;?_V+PAA`/M,3^\`#"M`__I*@&<&*T``#&"X2JP`-&<F""T`9 XM!___9QYP`!`M__\O`"!M``A.D%A/(&T`#!`04JT`#!M`__]P`!`M__\O`"!M" XM``A.D%A/8`#_>DY=3G4@;0`,3I!P84Y5_^!(YR``<`!R`"!M``@2$$'L`5W1B XMP1(0*T#_]"M`__`(`0`"9S@@+?_P<@I.N@8(<@`@;0`($A!2K0`(`H$````/5 XMT($K0/_P<``@;0`($!!![`%=T<`0$`@```)FR"!M``@2$`P!`&QF#%*M``AP= XM`2M`__1@"@P!`&AF!%*M``@@;0`,3I`K0/_\(&T`"`P0`&-G'$'L`5W1[?_\G XM$!`(```#9PP@;0`,3I`K0/_\8.0B+?_\#('_____9@P@;0`0((%P`&``!(P@" XM;0`($!`"0`#_<C9=06L`!&:P>Q`(9O1.^Q`$`'-@``0.`&-@``.D`&A@``,DI XM`%A@``&D`'A@``&>`'!@``&,`&]@``#V`&1@```.`'5@```"0JW_[&!*<``K^ XM0/_L2JW_\&<*#*T````!__!O-"0M__P,@@```"UG"`R"````*V8@#((````M^ XM9@1R_V`"(@`K0?_L(&T`#$Z04ZW_\"M`__Q![`%=("W__-'`$A`(`0`"9@P@E XM;0`0((!P`&```\Q"K?_H("W_Z'(*3KH$HB(M__P"@0````_0@2M`_^@@;0`,( XM3I`K0/_\4ZW_\"`M__!*@&<00>P!7='M__P0$`@```)FP$JM`!1G``-P2JW_? XM[&H$1*W_Z$JM__1F$")M`!0@42`M_^@@@&```U`B;0`4(%$@K?_H8``#0B(MI XM__P,@0```#!M"`R!````-V\,(&T`$""!<`!@``,R0JW_Z"`M_^CG@"(M__P"L XM@0````?0@2M`_^@@;0`,3I`K0/_\4ZW_\"`M__!*@&<4(BW__`R!````,&T(T XM#($````W;\!*K0`49P`"UDJM__1F$")M`!0@42`M_^@@@&```L`B;0`4(%$@; XMK?_H8``"LDJM__!F!G`(*T#_\$'L`5T@+?_\T<`2$`@!``=F#"!M`!`@@'``! XM8``"F"MM__S_^"!M``Q.D"M`__Q*K?_P9PH,K0````+_\&]*#*T````P__AFA XM0`R`````>&<(#(````!89C`@;0`,3I!![`%=(DC3P!(1*T#__`@!``=F#")M& XM`!`B@'``8``".$*M_^A3K?_P8$Q![`%=("W_^")(T\`2$0@!``)G#"(`!($`! XM```P*T'_Z")(T\`2$0@!``!G#"(`!($````W*T'_Z-'`$A`(`0`!9PH$@```" XM`%<K0/_H4ZW_\"`M__!*@&=N0>P!72`M__PB2-/`$A$(`0`'9UHB+?_HZ8$BY XM2-/`%!$K0?_H"`(``F<,(@`$@0```#"#K?_H(DC3P!(1"`$``&<,(@`$@0``# XM`#>#K?_HT<`2$`@!``%G"@2`````5X&M_^@@;0`,3I`K0/_\8(9*K0`49P`!B XM4$JM__1F$")M`!0@42`M_^@@@&```3HB;0`4(%$@K?_H8``!+$'L`5T@+?_\; XMT<`2$`@!``)F#"!M`!`@@'``8``!'D*M_^P@+?_L<@I.N@'T(BW__`*!````T XM#]"!*T#_["!M``Q.D"M`__Q3K?_P("W_\$J`9Q!![`%=T>W__!`0"````F;`3 XM2JT`%&<``,(B;0`4(%$@+?_L,(!@``"R2JT`%&<.(FT`%"!14I$@+?_\$(!3D XMK?_P("W_\$J`;R0@;0`,3I`K0/_\#(#_____9Q)*K0`49]PB;0`4(%%2D1"`H XM8-`B+?_\#('_____9@H@;0`0((%P`&!F(&T`"%*((`A@7$JM`!1G#B)M`!0@] XM45*1("W__!"`(&T`#$Z0*T#__%*`9QQ3K?_P("W_\$J`9Q!![`%=T>W__!`0. XM"````V?"(FT`%"!10A!@!'``8!`@;0`0(*W__"!M``A2B"`(3-\`!$Y=3G5*! XM@&H``!Y$@$J!:@``#$2!80``($2!3G5A```81(!$@4YU2H%J```,1(%A```&- XM1(!.=2\"2$$T`68``")(0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C(")!].S XM=2\#=A`,00"`9```!N&944,,00@`9```!NF964,,02``9```!N6954-*06L`R XM``;CF5-#-`#FJ$A"0D+FJDA#@,$V`#`"-`-(0<3!D()D```(4T/0@63^<@`R< XM`TA#Y[A(0,-`)A\D'TYU+GD```!,3KD```7D+SP````43KD```8\($(B0R0`9 XM)@%(0DA#Q,'&P,#!U$-(0D)"T((F"20(3G5.5?_X2.<!('X`1>P%!+ZL`X1L< XM'DJ29Q0(*@`"``-G`F`*+RH`!$ZZ`?A83U*'4(I@W"\M``PO+0`(3KK?EE!/; XM3-\$@$Y=3G5.5?_\<``B/```,``L>``$3J[^S@*````P`"M`__Q*@&8$<`!@% XM)$JL`#!G&B!L`#!.D$J`9@1P`&`00J=(>``43KK_=E!/("W__$Y=3G5AL$YU< XM``!*K`0<9A)#[`0$<``L>``$3J[]V"E`!!PI;`!4`\1(>``\2'@`^G``+P`OK XM`$AL`_!(;`/62&P#N"\`3KKC'$_O`"!3@&<$</]@`G``3G4``$Y5__Q(YP$`' XM2JP`,&<$3KK_3$*L`!@B+0`()"T`#"8M`!`L;`083J[_UBX`#(?_____9A(LG XM;`083J[_?"E``!AP!2E``LP@!TS?`(!.74YU3E7__$CG`0!*K``P9P1.NO[\- XM0JP`&"(M``@D+0`,)BT`$"QL!!A.KO_0+@`,A_____]F$BQL!!A.KO]\*4``E XM&'`%*4`"S"`'3-\`@$Y=3G5.5?_X2.<Q`DJL`#!G!$ZZ_JQ"K``8("T`$%.`Y XM+T``$"(M``@D+0`,)B\`$"QL!!A.KO^^+@`,A_____]F$BQL!!A.KO]\*4``. XM&'`6*4`"S"`M`!`,@`````)G'`R``````6<*2H!F(B`M``Q@'"`'(`?0K0`,_ XM8!(B+0`(=`!V`"QL!!A.KO^^3G%,WT",3EU.=0``3E4``$JL`#!G!$ZZ_APB\ XM+0`(+&P$&$ZN_]QP`$Y=3G4```/L`````@```````"$X```A+`````0````!Z XM```A)@``!58```$2````#@````````/R```#Z@```0L`````````````````Q XM````````````````````````````````````````````````````````````` XM`````````````````````````````````````````````&1O<RYL:6)R87)YI XM`%5S86=E.B`@5TU/5D4@9'@@9'D@6W=I;F1O=R!;<V-R965N75T*```E;&0`] XM0V%N)W0@9FEN9"!S8W)E96X@)R5S)PH`0V%N)W0@9FEN9"!W:6YD;W<@)R5SC XM)R!O;B!S8W)E96X@)R5S)PH``&EN='5I=&EO;BYL:6)R87)Y``I7:6YD;W<@\ XM)R5S)R!O;B!38W)E96X@)R5S)PH``"`@($]L9"!P;W-I=&EO;CH@("@E9"PE# XM9"D*```@("!.97<@<&]S:71I;VXZ("`H)60L)60I"B`@($-H86YG960Z("`@M XM("`@("@E9"PE9"D*"@```````@``("`@("`@("`@*"@H*"@@("`@("`@("`@- XM("`@("`@("!($!`0$!`0$!`0$!`0$!`0A(2$A(2$A(2$A!`0$!`0$!"!@8&!4 XM@8$!`0$!`0$!`0$!`0$!`0$!`0$!`1`0$!`0$(*"@H*"@@("`@("`@("`@("8 XM`@("`@("`@("$!`0$"`@("`@("`@("`H*"@H*"`@("`@("`@("`@("`@("`@Z XM($@0$!`0$!`0$!`0$!`0$!"$A(2$A(2$A(2$$!`0$!`0$(&!@8&!@0$!`0$![ XM`0$!`0$!`0$!`0$!`0$!$!`0$!`0@H*"@H*"`@("`@("`@("`@("`@("`@("? XM`@(0$!`0(````/__````#@`.````````````````*BH@4W1A8VL@3W9E<F9LV XM;W<@*BH``/__````!``$`````````G0```)@15A)5```__\````$``0`````X XM```"G@````!I;G1U:71I;VXN;&EB<F%R>0`````````P,3(S-#4V-S@Y86)C9 XM9&5F``````T*`````(`````##@``````````````````````````````````7 XM`````````S``````````````````````````````````````````````````S XM``````````````````````````````````````!C;VXZ,3`O,3`O,S(P+S@P& XM+P`J```````````````````````````````````````````H*BH@57-E<B!!U XM8F]R="!297%U97-T960@*BH``/__````#@`.`````````X@`````__\````$D XM``0``````````````Z1#3TY424Y510``__\````$``0````````#S`````!!F XM0D]25`#__P````0`!`````````/J`````&EN='5I=&EO;BYL:6)R87)Y````P XM````````````````````````!`````/L````"0````$```/\```#X@```\@`L X?``.P```##@```NP```*P```"F@```I8````````#\@$`. X`` Xend Xsize 10336 END_OF_FILE if test 14508 -ne `wc -c <'wmove.uu'`; then echo shar: \"'wmove.uu'\" unpacked with wrong size! fi # end of 'wmove.uu' fi echo shar: End of archive 1 $of 2$. cp /dev/null ark1isdone MISSING="" for I in 1 2 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked both archives. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 -- Mail submissions (sources or binaries) to <amiga@uunet.uu.net>. Mail comments to the moderator at <amiga-request@uunet.uu.net>. Post requests for sources, and general discussion to comp.sys.amiga.misc.